Delphi Developersky Orisek...
Otázka od: david.kopecek@hacktrack.com
22. 4. 2004 22:13
Zdravim konferenci,
mam jednu takovy velice krasny orisek.. mozna to ani neni orisek a je
to moje blbost ;).
snazim se napsat server a v dpr primo vytvarim objekt TDBListener
ktery je typu TDBListener = class(TThread) a zacne naslouchat na
urcitem porte.. Jakmile se pripoji client tak mu to vytvori novy
objekt typu tthread. POte co se client odpoji vlakno se automaticky
ukonci. Teda melo by ale v tomhle pripade (reseni pres dpr) tam to
vlakno zustane kontroloval jsem to pres Task Managera a i Task Info..
mel jsem tu aplikaci puvodne napsanou pres formular kde se skratka po
startu zavolala procedurea ktera zavolala
dbiServ:=TDBListener.Create(self) a tim se to spustilo. kdyz se
propojil klient a odpojil tak se vlakno zase stratilo..
ale vubec mi nejde proc to tak nefuguje u tohohle kodu primo v dpr
resni..
etc skousel jsem tam pridavat unity a asi na forms to zabralo a jelo
to jak ma.. jenze proc tam mit forms kdyz je nepouzivam.. zbytecne
velky kod.. kvuli velikosti kodu to mam v dpr...
tu je ukazka toho vytvoreni v dpr.
program DBServer;
uses Windows,
UnitServer in 'UnitServer.pas',
UnitFunctions in 'UnitFunctions.pas',
UnitLocFuncs in 'UnitLocFuncs.pas';
{$R *.res}
const
ModuleName = 'DB';
var
dbiserv : TDBListener;
begin
dbiServ:=TDBListener.Create(nil);
messagebox(0,Pchar('DB Module is on-line'),Pchar('DB'),0);
dbiserv.Terminate;
end.
--
S pozdravem a d iky,
David
Odpovedá: Jan Fiala
23. 4. 2004 10:54
22.4.2004 david.kopecek@hacktrack.com:
> ale vubec mi nejde proc to tak nefuguje u tohohle kodu primo v dpr
> resni..
V DPR nebezi obsluha zprav. To dela az TForm, pokud si obsluhu zprav
nenapises sam.
--
Jan Fiala
mailto:jan.fiala@wo.cz
Odpovedá: david.kopecek@hacktrack.com
23. 4. 2004 12:13
Dobry den,
Friday, April 23, 2004, 11:38:31 AM, napsal jste:
JF> 22.4.2004 david.kopecek@hacktrack.com:
>> ale vubec mi nejde proc to tak nefuguje u tohohle kodu primo v dpr
>> resni..
JF> V DPR nebezi obsluha zprav. To dela az TForm, pokud si obsluhu zprav
JF> nenapises sam.
a sakra.. portreboval bych totiz hlavne zmensit velikost toho kodu..
450 k na to ze to nic nedela je moc
--
S pozdravem,
david
david.kopecek@hacktrack.com
Odpovedá: Petr Vones
23. 4. 2004 12:17
From: <david.kopecek@hacktrack.com>
> a sakra.. portreboval bych totiz hlavne zmensit velikost toho kodu..
Obsluha zprav neni v nevizualni aplikaci zpravidla k nicemu potreba, takze se
jedna spise o spatny navrh cele aplikace.
> 450 k na to ze to nic nedela je moc
A neni to takhle uplne jedno ?
Petr Vones